Jak zjistit handle TImage

Otázka od: Vladimir Ponechal

14. 9. 2002 22:22

Zdravim vsechny,

Mam prosbicku. Vytvarim novy objekt TImage:

Image0 := TImage.Create(Self);
Image0.Left := Bod.X;
Image0.Top := Bod.Y;
Image0.Picture.LoadFromFile('C:\dat.ico');
Image0.Parent := ScrollBox1;

Potrebuji zjistit handle vytvoreneho objektu.
Image0.Picture.handle mi nefunguje.

Mam D6 prof.

Diky,

Vlada

----
Jak ušetřit na dovolenou? http://dovolena.finance.cz

Odpovedá: Petr Vones

15. 9. 2002 14:58

From: "Vladimir Ponechal" <vladimir_ponechal@post.cz>
> Potrebuji zjistit handle vytvoreneho objektu.
> Image0.Picture.handle mi nefunguje.

Jak muze nefungovat, kdyz takova vlastnost ani neexistuje.

procedure TForm1.Button1Click(Sender: TObject);
var
  H: HICON;
begin
  Image1.Picture.LoadFromFile('icon.ico');
  H := (Image1.Picture.Graphic as TIcon).Handle;
end;

Petr Vones